Top 10k strings from ZZZ-UNK-treitz12 [demo].bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /
Back to the directory listing
1 31110 END DEFine reset 1 31100 SCALE 100,0,0:FILL 0 1 31090 PAPER#0,0:INK#0,7-3*(i=0):INK 7:CLS 1 31080 FOR il=0,1,2:CSIZE#il,(i=4)+2*(i=8),0:END FOR il 1 31070 PAPER 2*(i=8):BORDER (i=4),4*(i=4) 1 31060 WINDOW 448+8*(i=4),200+2*(i=4),32-4*(i=4),16-(i=4) 1 31050 WINDOW#0,448,40-(i=4),32,216+(i=4) 1 31040 PAPER#2,1:INK#2,7 1 31030 OPEN#2,con_:WINDOW#2,448,200,32,16 1 31020 WINDOW 513,256,0,0:PAPER 0:CLS 1 31010 LOCal il:MODE i 1 31000 DEFine PROCedure reset(i) 1 160 END FOR i 1 15400 END DEFine f_vari 1 15390 END SELect 1 15380 =REMAINDER :RETurn f_varikoodi((etuvari%)) 1 15370 =1:RETurn f_varikoodi((etuvari%)) 1 15360 =0:RETurn f_varikoodi((taustavari%)) 1 15350 SELect ON tapal 1 15340 LOCal tapal:tapal=tapa% 1 15330 DEFine FuNction f_vari(tapa%) 1 15310 END DEFine f_varikoodi 1 15300 END SELect 1 15290 =REMAINDER :RETurn 0 1 15280 =15:RETurn 206:REMark grey 3 1 15270 =14:RETurn 5:REMark light blue 1 15260 =13:RETurn 220:REMark light green 1 15250 =12:RETurn 248:REMark grey 2 1 15240 =11:RETurn 250:REMark grey 1 1 15230 =10:RETurn 234:REMark light red 1 15220 = 9:RETurn 208:REMark brown 1 15210 = 8:RETurn 226:REMark orange 1 15200 = 7:RETurn 6 :REMark yellow 1 15190 = 6:RETurn 1 :REMark blue 1 15180 = 5:RETurn 4 :REMark green 1 15170 = 4:RETurn 202:REMark purple 1 15160 = 3:RETurn 5 :REMark cyan 1 15150 = 2:RETurn 2 :REMark red 1 15140 = 1:RETurn 7 :REMark white 1 15130 = 0:RETurn 0 :REMark black 1 15120 SELect ON varil 1 15110 LOCal varil:varil=vari% 1 15100 DEFine FuNction f_varikoodi(vari%) 1 15080 END DEFine hires 1 15070 SCALE 200,0,0 1 15060 INK f_varikoodi((etu%)) 1 15050 PAPER f_varikoodi((taus%)):CLS 1 15040 WINDOW 430,200,41,16 1 15030 WINDOW 512,256,0,0:PAPER 1:CLS 1 15020 etuvari%=etu%:taustavari%=taus% 1 15010 MODE 8 1 15000 DEFine PROCedure hires(etu%,taus%) 1 150 END FOR j 1 140 s_arc_q 246-i-j,100,90,270,27,i+j,i+j,1 1 130 s_arc_q 58+i+j,100,270,90,27,i+j,i+j,1 1 120 FOR j=0 TO 4 STEP .5 1 110 FOR i=0 TO 90 STEP 10 1 10640 END DEFine s_arc_q 1 10630 ARC x1,y1 TO x2,y2,kulma 1 10620 kulma=-(w2-w1+360*(w1>w2))*PI/180 1 10610 x2=x+r*SIN(kulma):y2=200-y+r*COS(kulma) 1 10600 kulma=w2*PI/180 1 10590 x1=x+r*SIN(kulma):y1=200-y+r*COS(kulma) 1 10580 kulma=(w1-360*(w1>w2))*PI/180 1 10570 INK f_vari((z%)):r=(a+b)/2 1 10560 LOCal r,x1,y1,x2,y2,kulma 1 10550 DEFine PROCedure s_arc_q(x,y,w1,w2,dw,a,b,z%) 1 100 hires 0,1